home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 3 / Light ROM 3 - Disc 2.iso / programs / amiga / jpeggers / autopeg / autopeg.lha / AutoPEG_v1.0 / AutoPEG.Install < prev    next >
Text File  |  1994-07-29  |  3KB  |  103 lines
  1. ; AutoPEG.Install
  2. ; Install AutoPEG and AutoPEG.exe to HardDisk
  3. ; Copyright ⌐ 1994 John Corigliano
  4. ; $VER: AutoPEG.Install 1.0 (07.27.94)
  5.  
  6. (set vernum (getversion "dos.library" (resident)))
  7. (set ver (/ vernum 65536))
  8. (set rev (- vernum (* ver 65536)))
  9.  
  10. (if (< ver 37)
  11.     (abort ("\nYou have WorkBench %ld.%ld\nAutoPEG needs v37+" ver rev))
  12.     (welcome "I will now install AutoPEG an your system")
  13. )
  14.  
  15. (set @dest-dir "Sys:Utilities")
  16.  
  17. (set new_name
  18.     (askdir
  19.         (prompt "Where do you want to put AutoPEG?")
  20.         (help @ask_dir-help)
  21.         (default "Sys:Utilities")
  22.     )
  23. )
  24.  
  25. (set @default-dest new_name)
  26.  
  27. (copyfiles
  28.     (prompt ("Copying AutoPEG to %s" new_name))
  29.     (help @copyfiles-help)
  30.     (source "AutoPEG")
  31.     (dest new_name)
  32.     (infos)
  33.     (optional "force")
  34. )
  35.  
  36. (set this_cpu (database "cpu"))
  37.  
  38. (if (OR (= "68040" this_cpu) (= "68030" this_cpu))
  39.     (copyfiles
  40.         (prompt "Copying AutoPEG.exe ('030) to C:")
  41.         (help @copyfiles-help)
  42.         (files)
  43.         (source "AutoPEG.exe.030")
  44.         (dest "C:")
  45.         (newname "AutoPEG.exe")
  46.     )
  47.     (copyfiles
  48.         (prompt "Copying AutoPEG.exe to C:")
  49.         (help @copyfiles-help)
  50.         (files)
  51.         (source "AutoPEG.exe")
  52.         (dest "C:")
  53.         (optional "force")
  54.     )
  55. )
  56.  
  57. (set icon_name (cat new_name "/AutoPEG"))
  58.  
  59. (set quiet_help
  60. "\n\n If you select 'Yes - notify on', a\n \
  61. requester will appear evertime you\n \
  62. start or stop AutoPEG. \n \
  63.  If you select 'No - notify off', \n \
  64. no requesters will appear."
  65. )
  66.  
  67. (if (askbool
  68.         (prompt "\n\n\n\nDo you want AutoPEG to\nstart in non-QUIET mode?")
  69.         (help quiet_help)
  70.         (choices "Yes - notify on" "No - notify off"))
  71.             (set null 0)
  72.             (tooltype
  73.                 (prompt "Setting tooltype")
  74.                 (help "Setting AutoPEG tooltype to USEMEM")
  75.                 (dest icon_name)
  76.                 (settooltype "QUIET=TRUE")
  77.             )
  78. )
  79.  
  80.  
  81. (set ram_help
  82. "\n\n If you select 'Yes - use RAM:', \n \
  83. AutoPEG will decompress files to RAM:, \n \
  84. then copy those file to disk. \n \
  85.  If you select 'No - use disk', \n \
  86. AutoPEG will decompress files \n \
  87. directly to disk."
  88. )
  89.  
  90. (if (askbool
  91.         (prompt "\n\n\n\nDo you want AutoPEG to\nuse RAM:?")
  92.         (help ram_help)
  93.         (choices "Yes - use RAM:" "No - use disk"))
  94.             (tooltype
  95.                 (prompt "Setting tooltype")
  96.                 (help "Setting AutoPEG tooltype to USEMEM")
  97.                 (dest icon_name)
  98.                 (settooltype "USEMEM=TRUE")
  99.             )
  100.             (set null 0)
  101. )
  102.  
  103.